home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / PowerFantasm™ 4.05 / F4_EXAMPLES / Sound play / SOUND_PLAY.S < prev    next >
Encoding:
Text File  |  1996-06-21  |  729 b   |  32 lines  |  [TEXT/edF6]
  1. *********************************
  2. *SOUND_PLAY.S            *
  3. *CONTAINS  NECESSARY ROUTINES    *
  4. *TO PLAY A SOUND RESOURCE     *
  5. *IN THE BACKGROUND.        *
  6. *********************************
  7. LOAD_SOUND:        **GET SOUND RESOURCE
  8.     CLR.L    -(SP)    SPACE FOR HANDLE
  9.     MOVE.L    #"snd ",-(SP)
  10.     MOVE.W    D0,-(SP)    *GET SOUND - RESOURCE NUMBER IN D0
  11.     DC.W    _GET1RESOURCE
  12.     MOVE.L    (SP)+,D0    GET HANDLE
  13.     RTS_    "Load_sound"    *rts_ is a macro that inserts a Macsbug label
  14.     
  15. PLAY_SOUND:    
  16.     CLR.W    -(SP)
  17.     PEA        CHAN(A5)
  18.     CLR.W    -(SP)
  19.     CLR.L    -(SP)
  20.     CLR.L    -(SP)    *CALL BACK PTR
  21.     DC.W    $A807    *SNDNEWCHANNEL
  22.     MOVE.W    (SP)+,D0
  23.  
  24.     CLR.W    -(SP)
  25.     MOVE.L    CHAN(A5),-(SP)
  26.     MOVE.L    SOUND(A5),-(SP)
  27.     MOVE.B    #-1,-(SP)
  28.     DC.W    $A805    *sndplay
  29.     MOVE.W    (SP)+,D0
  30.     RTS_    "Play_sound"
  31.     GLOBAL    LOAD_SOUND,PLAY_SOUND    
  32.